home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed26.d64 / yellow bird (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  7KB  |  183 lines
  1. 10 POKE53280,0:POKE53281,0:POKE53272,23:P=0
  2. 20 PRINT"[147][159]                                        [146]";
  3. 22 PRINT"                                        [146]";
  4. 24 PRINT"                                        [146]";
  5. 26 PRINT"                                        [146]";
  6. 28 PRINT"             [212]HE [217]ELLOW [194]IRD            [146]";
  7. 30 PRINT"                                        [146]";
  8. 32 PRINT"[159]                                        [146]";
  9. 34 PRINT"                                        [146]":GOSUB392:GOSUB560
  10. 36 PRINT"[154]     [208]RESS  [211][208][193][195][197] [194][193][210] [146] TO CONTINUE
  11. 38 [161]R$:[139]R$[179][177][199](32)[167]38
  12. 50 [137]1000
  13. 300 [141]530:[141]394:[153]"DEF (null)RY AGAIN!":[141]560:[141]391:[142]
  14. 350 [153]"               LENORRECT!                 WAIT":[141]500
  15. 355 [141]392:[153]"LOAD":[141]391:[142]
  16. 370 [153]" (null)EAD THIS CAREFULLY":[141]560:[141]560:[141]394:[142]
  17. 390 [129]T[178]1[164]600:[130]:[142]
  18. 391 [129]T[178]1[164]1000:[130]:[142]
  19. 392 [129]T[178]1[164]2000:[130]:[142]
  20. 393 [129]T[178]1[164]3000:[130]:[142]
  21. 394 [129]T[178]1[164]4000:[130]:[142]
  22. 395 [129]T[178]1[164]5000:[130]:[142]
  23. 500 [143] <YES>
  24. 505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  25. 510 [151]54296,15:[151]54277,42:[151]54278,250
  26. 515 [151]54276,23:[151]54273,23:[151]54272,191
  27. 520 [129]T[178]1[164]250:[130]:[151]54276,32:[129]T[178]1[164]300:[130]
  28. 525 [151]54296,0:[142]
  29. 530 [143] <NO>
  30. 535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  31. 540 [151]54296,15:[151]54277,18:[151]54278,242
  32. 545 [151]54276,33:[151]54273,4:[151]54272,48
  33. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  34. 555 [151]54296,0:[142]
  35. 560 [143] <BLIP>
  36. 565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  37. 570 [151]54296,8:[151]54277,42:[151]54278,250
  38. 575 [151]54276,23:[151]54273,23:[151]54272,191
  39. 580 [129]T[178]1[164]40:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  40. 585 [151]54296,0:[142]
  41. 1000 [153]"OPENLOAD RIGHT$ WANT YOU TO READ A STORY ABOUT A
  42. 1010 PRINT" LITTLE BIRD, A BIG TIGER, AND A WORM.
  43. 1020 [153]" (null)HEN YOU HAVE READ THE STORY, THERE
  44. 1030 PRINT" WILL BE SOME QUESTIONS FOR YOU TO       ANSWER.
  45. 1040 [153]"CONT (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) WHEN YOU ARE READY.":[141]560
  46. 1050 [161]R$:[139]R$[179][177][199](32)[167]1050
  47. 1055 [141] 1200
  48. 1060 [137]2000
  49. 1080 [141] 1200
  50. 1085 [137]2000
  51. 1200 [153]"OPENLOAD              (null)HE (null)TORY                 WAIT"
  52. 1210 [153]" (null)NE NIGHT, A LITTLE YELLOW BIRD HOPPED
  53. 1215 PRINT" AROUND ON THE GRASS.  [211]HE LOOKED HERE
  54. 1220 [153]" AND THERE.  (null)HE WAS LOOKING FOR
  55. 1225 PRINT" SOMETHING TO EAT.  [211]OON THE YELLOW
  56. 1230 [153]" BIRD SAW A FAT WORM IN THE GRASS.
  57. 1235 PRINT" [211]HE WENT TO PICK UP THE FAT WORM.
  58. 1240 [153]" MID$UST THEN A TIGER WENT BY.  (null)HE TIGER
  59. 1245 PRINT" HID IN THE TALL GRASS.  [200]E LOOKED AT
  60. 1250 [153]" THE LITTLE BIRD.  (null)HEN THE BIRD PULLED
  61. 1255 PRINT" AT THE WORM, THE TIGER JUMPED!   [200]E
  62. 1260 [153]" JUMPED AT THE YELLOW BIRD!  LEFT$E WANTED
  63. 1265 PRINT" TO EAT THE BIRD.
  64. 1270 [153]" PEEKUT BIRDS ARE QUICK.  (null)HE LITTLE
  65. 1275 PRINT" YELLOW BIRD GOT AWAY!  [211]HE FLEW FAR
  66. 1280 [153]" AWAY.  (null)HE TIGER WAS LEFT WITH THE FAT
  67. 1285 PRINT" WORM.  [213]GH!  [212]IGERS DO NOT EAT WORMS!":GOSUB393:GOSUB560
  68. 1290 PRINT"[154] [208]RESS THE  [211][208][193][195][197] [194][193][210] [146] FOR THE QUESTIONS
  69. 1295 [161]R$:[139]R$[179][177][199](32)[167]1295
  70. 1298 [142]
  71. 2000 [153]"OPENLOAD (null)HAT IS THIS STORY ABOUT?PRINT":[141]560
  72. 2010 [153]" (A) ... A TIGER EATING
  73. 2020 PRINT" (B) ... A FAST BIRD
  74. 2030 [153]" (C) ... WHAT WORMS EAT
  75. 2040 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  76. 2050 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2050
  77. 2060 [139]R$[178]"A"[167][153]"DEF (null)HAT DID THE TIGER EAT?":[141]300:P[178]P[170]1:[137]2000
  78. 2070 [139]R$[178]"C"[167][153]"DEF (null)HAT DID THE WORM EAT?":[141]300:P[178]P[170]1:[137]2000
  79. 2080 [139]R$[178]"D"[167][141]370:[141]1200:[137]2000
  80. 2090 [141]350
  81. 2100 [153]"OPENLOAD (null)HAT WAS THE BIRD DOING?PRINT":[141]560
  82. 2110 [153]" (A) ... LOOKING FOR FOOD
  83. 2120 PRINT" (B) ... SITTING IN A TREE
  84. 2130 [153]" (C) ... LOOKING FOR A TIGER
  85. 2140 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  86. 2150 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2150
  87. 2160 [139]R$[178]"B"[167][153]"DEF (null)HAT TREE?":[141]300:P[178]P[170]1:[137]2100
  88. 2170 [139]R$[178]"C"[167][153]"DEF LENOULD SHE EAT A TIGER?":[141]300:P[178]P[170]1:[137]2100
  89. 2180 [139]R$[178]"D"[167][141]370:[141]1200:[137]2100
  90. 2190 [141]350
  91. 2200 [153]"OPENLOAD (null)HAT WAS THE TIGER DOING?PRINT":[141]560
  92. 2210 [153]" (A) ... EATING WORMS
  93. 2220 PRINT" (B) ... FLYING AWAY
  94. 2230 [153]" (C) ... LOOKING FOR FOOD
  95. 2240 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  96. 2250 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2250
  97. 2260 [139]R$[178]"A"[167][153]"DEF STR$O TIGERS REALLY EAT WORMS?":[141]300:P[178]P[170]1:[137]2200
  98. 2270 [139]R$[178]"B"[167][153]"DEF STR$O TIGERS HAVE WINGS?":[141]300:P[178]P[170]1:[137]2200
  99. 2280 [139]R$[178]"D"[167][141]370:[141]1200:[137]2200
  100. 2290 [141]350
  101. 2300 [153]"OPENLOAD (null)HERE WAS THE BIRD?PRINT":[141]560
  102. 2310 [153]" (A) ... IN A TREE
  103. 2320 PRINT" (B) ... IN A NEST
  104. 2330 [153]" (C) ... ON THE GRASS
  105. 2340 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  106. 2350 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2350
  107. 2360 [139]R$[178]"A"[167][153]"DEF (null)HAT TREE?  ":[141]300:P[178]P[170]1:[137]2300
  108. 2370 [139]R$[178]"B"[167][153]"DEF (null)HAT NEST?      ":[141]300:P[178]P[170]1:[137]2300
  109. 2380 [139]R$[178]"D"[167][141]370:[141]1200:[137]2300
  110. 2390 [141]350
  111. 2400 [153]"OPENLOAD (null)HEN WAS THE BIRD LOOKING FOR FOOD?PRINT":[141]560
  112. 2410 [153]" (A) ... IN THE MORNING
  113. 2420 PRINT" (B) ... IN THE AFTERNOON
  114. 2430 [153]" (C) ... AT NIGHT
  115. 2440 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  116. 2450 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2450
  117. 2460 [139]R$[178]"A"[167][153]"DEF (null)EALLY?  ":[141]300:P[178]P[170]1:[137]2400
  118. 2470 [139]R$[178]"B"[167][153]"DEF (null)EALLY?      ":[141]300:P[178]P[170]1:[137]2400
  119. 2480 [139]R$[178]"D"[167][141]370:[141]1200:[137]2400
  120. 2490 [141]350
  121. 2500 [153]"OPENLOAD (null)HO GOT SOME FOOD IN THIS STORY?PRINT":[141]560
  122. 2510 [153]" (A) ... NO ONE
  123. 2520 PRINT" (B) ... THE TIGER
  124. 2530 [153]" (C) ... THE BIRD
  125. 2540 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  126. 2550 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2550
  127. 2560 [139]R$[178]"B"[167][153]"DEF STR$O TIGERS EAT WORMS?  ":[141]300:P[178]P[170]1:[137]2500
  128. 2570 [139]R$[178]"C"[167][153]"DEF CHR$OOD GRIEF!  ":[141]300:P[178]P[170]1:[137]2500
  129. 2580 [139]R$[178]"D"[167][141]370:[141]1200:P[178]P[170]1:[137]2500
  130. 2590 [141]350
  131. 2600 [153]"OPENLOAD (null)HAT COLOUR WAS THE BIRD?PRINT":[141]560
  132. 2610 [153]" (A) ... BROWN
  133. 2620 PRINT" (B) ... YELLOW
  134. 2630 [153]" (C) ... BLUE
  135. 2640 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  136. 2650 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2650
  137. 2660 [139]R$[178]"A"[167][153]"DEF ATNRE YOU AWAKE?  ":[141]300:P[178]P[170]1:[137]2600
  138. 2670 [139]R$[178]"C"[167][153]"DEF (null)GH!         ":[141]300:P[178]P[170]1:[137]2600
  139. 2680 [139]R$[178]"D"[167][141]370:[141]1200:[137]2600
  140. 2690 [141]350
  141. 2700 [153]"OPENLOAD (null)HAT DO YOU THINK THE WORM DID?PRINT":[141]560
  142. 2710 [153]" (A) ... ATE THE BIRD
  143. 2720 PRINT" (B) ... GOT AWAY
  144. 2730 [153]" (C) ... LOOKED FOR A TIGER
  145. 2740 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  146. 2750 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2750
  147. 2760 [139]R$[178]"A"[167][153]"DEF (null)OW! (null)HAT'S WILD!  ":[141]300:P[178]P[170]1:[137]2700
  148. 2770 [139]R$[178]"C"[167][153]"DEF (null)OME WORM!  ":[141]300:P[178]P[170]1:[137]2700
  149. 2780 [139]R$[178]"D"[167][141]370:[141]1200:[137]2700
  150. 2790 [141]350
  151. 2800 [153]"OPENLOAD (null)HAT IS THE BEST NAME FOR THIS STORY?PRINT":[141]560
  152. 2810 [153]" (A) ... THE TIGER'S DINNER
  153. 2820 PRINT" (B) ... HOW WORMS EAT BIRDS
  154. 2830 [153]" (C) ... THE BIRD THAT GOT AWAY
  155. 2840 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
  156. 2850 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2850
  157. 2860 [139]R$[178]"A"[167][153]"DEF (null)HAT DINNER?      ":[141]300:P[178]P[170]1:[137]2800
  158. 2870 [139]R$[178]"B"[167][153]"DEF CHR$IANT WORMS?    ":[141]300:P[178]P[170]1:[137]2800
  159. 2880 [139]R$[178]"D"[167][141]370:[141]1200:[137]2800
  160. 2890 [141]350
  161. 3000 [153]"LOAD              (null)CORE PEEKOARD               WAIT"
  162. 3001 [143]  PRINT"LOADSYS (null)OU MADE "P" BLOOPER(S).
  163. 3005 IFP=0THENPRINT"[158]               [197]XCELLENT!"
  164. 3010 IFP=0THENGOSUB500:GOSUB500:GOSUB393:GOTO3045
  165. 3015 IFP=1THENPRINT"[159]       [217]OU MADE JUST ONE BLOOPER.":GOSUB391
  166. 3020 IFP=1THENPRINT"              [199]OOD WORK."
  167. 3025 IFP=1THENGOSUB500:GOSUB393:GOTO3045
  168. 3030 PRINT"[150]       [217]OU HAVE MADE"P"BLOOPERS.":GOSUB530:GOSUB530:GOSUB392
  169. 3035 PRINT"[150]    [217]OU SHOULD REPEAT THIS STORY AND
  170. 3040 [153]"        (null)RY TO GET A BETTER SCORE":[141] 394
  171. 3045 [153]"PRINT                                        WAIT"
  172. 3050 [153]"OPEN (null)OU NOW HAVE A CHOICE:":[141]560
  173. 3055 [153]" (null)RESS  (null) WAIT TO REPEAT THIS STORY
  174. 3060 PRINT" [208]RESS  [205] [146] TO RETURN TO THE DISK MENU
  175. 3065 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167] 3065
  176. 3070 [139]R$[178]"R"[167] [140]:[137]1000
  177. 3072 [139]R$[178]"(null)"[167] [140]:[137]1000
  178. 3075 [153]"LOAD (null)ETURNING TO THE DISK MENU
  179. 3080 LOAD"MENU",8
  180. 3085 RUN
  181. 3090 END
  182. 4000 REM WHC 92 05 25 / 92 12 04
  183.